home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr28 / par300.zip / EXAMPL03.POM < prev    next >
Text File  |  1995-04-07  |  1KB  |  49 lines
  1. ;
  2. ;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
  3. ;
  4. ;-------------------------------------------------------------------------------
  5. ;
  6. ;   Determine where we are.  (HdrCntr is null until first match)
  7. ;
  8. IF       $FLINE[  1  11] = "-----------" THEN HdrCntr = HdrCntr+
  9. ;
  10. ;  Ignore start of input
  11. ;
  12. IGNORE   HdrCntr         = ""
  13. ;
  14. ;   Wait until fourth line of dashes, then start ignoring
  15. ;
  16. IGNORE   Finished        = "Y"
  17. IF       HdrCntr         = "4" THEN Finished = "Y"
  18. ;
  19. ;   Accept header lines and IBM boards only
  20. ;   Note the use of "clustered ACCEPTs" here
  21. ;
  22. SET      Test            = $FLINE[ 46  47]
  23. ACCEPT   Test            = "IB"
  24. ACCEPT   Test            = "--"
  25. ACCEPT   $FLINE[ 40  47] = "BR BD MA"
  26. ;
  27. ;   Skip slow baud rates
  28. ;                                        
  29. IGNORE   $FLINE[ 43  44] = "30"
  30. IGNORE   $FLINE[ 43  44] = "12"
  31. ;
  32. ;   Skip pay boards
  33. ;                                        
  34. IGNORE   $FLINE[ 49    ] = "Y"
  35. ;
  36. ;   Skip boards without file transfer
  37. ;                                        
  38. IGNORE   $FLINE[ 50    ] = "N"
  39. ;
  40. ;   Replace baud rates for modems we can't handshake with, using our v32 modem
  41. ;              
  42. CHANGE   $FLINE  " 9H "   =   " 24 "
  43. CHANGE   $FLINE  " 9P "   =   " 24 "
  44. CHANGE   $FLINE  " 9V "   =   " 24 "
  45. ;
  46. ;   Output
  47. ;
  48. OUTEND   |{$FLINE}
  49.